home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games Special 4 / THE BEST OF SELECT Games Special 4 (Select CD-ROM)(1996).iso / win95 / gchess / chess.c < prev    next >
C/C++ Source or Header  |  1995-02-22  |  28KB  |  883 lines
  1.  
  2. /*
  3.   C source for GNU CHESS
  4.  
  5.   Revision: 1991-01-20
  6.  
  7.   Modified by Daryl Baker for use in MS WINDOWS environment
  8.  
  9.   Copyright (C) 1986, 1987, 1988, 1989, 1990 Free Software Foundation, Inc.
  10.   Copyright (c) 1988, 1989, 1990  John Stanback
  11.  
  12.   This file is part of CHESS.
  13.  
  14.   CHESS is distributed in the hope that it will be useful, but WITHOUT ANY
  15.   WARRANTY.  No author or distributor accepts responsibility to anyone for
  16.   the consequences of using it or for whether it serves any particular
  17.   purpose or works at all, unless he says so in writing.  Refer to the CHESS
  18.   General Public License for full details.
  19.  
  20.   Everyone is granted permission to copy, modify and redistribute CHESS, but
  21.   only under the conditions described in the CHESS General Public License.
  22.   A copy of this license is supposed to have been given to you along with
  23.   CHESS so you can know your rights and responsibilities.  It should be in a
  24.   file named COPYING.  Among other things, the copyright notice and this
  25.   notice must be preserved on all copies.
  26. */
  27.  
  28. /*
  29. #define NOATOM                Minimize windows.h processing
  30. #define NOCLIPBOARD
  31. #define NOCREATESTRUCT
  32. #define NOFONT
  33. #define NOREGION
  34. #define NOSOUND
  35. #define NOWH
  36. #define NOCOMM
  37. #define NOKANJI
  38. */
  39.  
  40. #include <windows.h>          /* required for all Windows applications */
  41. #include <string.h>
  42. #include <time.h>
  43.  
  44. #include "gnuchess.h"
  45.  
  46. #include "defs.h"
  47. #include "chess.h"
  48. #include "saveopen.h"
  49. #include "color.h"
  50.  
  51. DWORD clrBackGround;       /* rgb structures for various colors */
  52. DWORD clrBlackSquare;
  53. DWORD clrWhiteSquare;
  54. DWORD clrBlackPiece;
  55. DWORD clrWhitePiece;
  56. DWORD clrText;
  57.  
  58. static HBRUSH hBrushBackGround;
  59.  
  60. short boarddraw[64];       /* Display copies of the board */
  61. short colordraw[64];       /* Needed because while computer is calculating*/
  62.                            /* moves it updates board and color thus you can*/
  63.                            /* not repaint the screen accuratly */
  64.  
  65. struct PIECEBITMAP pieces[7];
  66.  
  67. HANDLE hInst;              /* current instance */
  68. HANDLE hAccel;
  69.  
  70. char szAppName[] = "Chess";
  71.  
  72. extern char mvstr[4][6];
  73. extern GLOBALHANDLE hBook;
  74. int coords = 1;
  75.  
  76. static int FirstSq = -1;         /* Flag is a square is selected */
  77. static int GotFirst = FALSE;
  78. static int EditActive = FALSE;   /* Edit mode? */
  79. static int User_Move = TRUE;     /* User or computer's turn */
  80.  
  81. static HMENU hMainMenu;
  82.  
  83.  
  84. int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance, LPSTR lpCmdLine,
  85.                   int nCmdShow);
  86.  
  87. #ifdef WIN32
  88. static void MakeHelpPathName (char * szFileName);
  89. #else
  90. static void _near MakeHelpPathName (char * szFileName);
  91. #endif
  92.  
  93. #define EXE_NAME_MAX_SIZE  128
  94.  
  95.  
  96. int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance, LPSTR lpCmdLine,
  97.                   int nCmdShow)
  98. {
  99.     HWND hWnd;
  100.     MSG msg;
  101.     POINT pt;
  102.  
  103.     lpCmdLine ++;
  104.  
  105.     if (!hPrevInstance)
  106.        if (!ChessInit(hInstance)) return ((int)NULL);
  107.  
  108.     hInst = hInstance;            /* Saves the current instance         */
  109.  
  110.     QueryBoardSize (&pt);
  111.  
  112.     /* Create the mailn window.  It will be autosized in WM_CREATE message */
  113.     hWnd = CreateWindow(szAppName,    szAppName,
  114.           WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN,
  115.          CW_USEDEFAULT, CW_USEDEFAULT,
  116.          CW_USEDEFAULT, CW_USEDEFAULT,
  117.          NULL,    NULL,    hInstance,    NULL);
  118.  
  119.     if (!hWnd)    return ((int)NULL);
  120.  
  121.     ShowWindow(hWnd, nCmdShow);              /* Shows the window         */
  122.  
  123.    /* Initialize chess */
  124.    if (init_main ( hWnd ) ) {
  125.       SMessageBox (hWnd, IDS_INITERROR,IDS_CHESS);
  126.       FreeGlobals ();
  127.       return ((int)NULL);
  128.    }
  129.  
  130.    UpdateWindow(hWnd);                  /* Sends WM_PAINT message  */
  131.  
  132.    hAccel = LoadAccelerators (hInstance, szAppName);
  133.  
  134.    player = opponent;
  135.    ShowSidetoMove ();
  136.  
  137.    while (GetMessage(&msg, (HWND)NULL, (UINT)NULL, (UINT)NULL)) {
  138.       if ( !TranslateAccelerator (hWnd, hAccel, &msg) ) {
  139.         TranslateMessage(&msg);
  140.         DispatchMessage(&msg);
  141.       }
  142.     }
  143.  
  144.     return (msg.wParam);       /* Returns the value from PostQuitMessage */
  145. }
  146.  
  147.  
  148. long FAR PASCAL ChessWndProc( HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
  149. {
  150.  
  151.    FARPROC lpProcAbout;
  152.    HMENU hMenu;
  153.    PAINTSTRUCT ps;
  154.    HDC hDC;
  155.    TEXTMETRIC tm;
  156.    int i;
  157.    POINT point;
  158.    OFSTRUCT pof;
  159.    char FileName[256], str[80];
  160.    WORD Status;
  161.    HFILE hFile;
  162.  
  163.    switch (message) {
  164.        case WM_CREATE: {                /* message: window being created */
  165.          int xchar, ychar;
  166.  
  167.          GetStartupColors ( szAppName);
  168.  
  169.          hBrushBackGround = CreateSolidBrush ( clrBackGround );
  170.  
  171.          for ( i=pawn; i<pawn+6; i++ ) pieces[i].piece = LoadBitmap (hInst, MAKEINTRESOURCE(PAWNBASE+i));
  172.          for ( i=pawn; i<pawn+6; i++ ) pieces[i].mask = LoadBitmap (hInst, MAKEINTRESOURCE(PAWNBASE+6+i));
  173.          for ( i=pawn; i<pawn+6; i++ ) pieces[i].outline = LoadBitmap (hInst, MAKEINTRESOURCE(PAWNBASE+12+i));
  174.  
  175.  
  176.          hDC = GetDC (hWnd);
  177.          GetTextMetrics ( hDC, &tm);
  178.          xchar = tm.tmMaxCharWidth;
  179.          ychar = tm.tmHeight+tm.tmExternalLeading;
  180.  
  181.          /*Autosize main window */
  182.          QueryBoardSize (&point);            
  183.          SetWindowPos( hWnd, hWnd, 0,0,
  184.                  point.x+GetSystemMetrics(SM_CXFRAME)*2+50,
  185.                  point.y+GetSystemMetrics(SM_CYFRAME)*2+GetSystemMetrics(SM_CYMENU)+
  186.                  GetSystemMetrics(SM_CYCAPTION) + ychar,
  187.                  SWP_NOMOVE | SWP_NOZORDER);
  188.  
  189.          ReleaseDC ( hWnd, hDC);
  190.  
  191.          InitHitTest ();
  192.          Create_Children ( hWnd, hInst, xchar, ychar);
  193.          break;
  194.       }
  195.  
  196.      case MSG_DESTROY:
  197.          DestroyWindow ( hWnd );
  198.          break;
  199.  
  200.      case WM_DESTROY: {          /* message: window being destroyed */
  201.          char  szHelpFileName[EXE_NAME_MAX_SIZE+1];
  202.          MakeHelpPathName(szHelpFileName);
  203.          WinHelp(hWnd,szHelpFileName,HELP_QUIT,0L);
  204.  
  205.          DeleteObject (hBrushBackGround);
  206.          Hittest_Destructor ();
  207.          if ( hBook ) FreeBook();
  208.          FreeGlobals ();
  209.          SaveColors ( szAppName);
  210.          PostQuitMessage(0);
  211.           break;
  212.       }
  213.  
  214.       case WM_PAINT:
  215.  
  216.          if ( FirstSq != -1 ) {        /*Properly repaint hilighted square*/
  217.             POINT pt; RECT rect;
  218.             QuerySqOrigin ( FirstSq%8, FirstSq/8, &pt);
  219.             rect.left = pt.x; rect.right=pt.x+48;
  220.             rect.top = pt.y-48; rect.bottom = pt.y;
  221.             InvalidateRect (hWnd, &rect, FALSE);
  222.          }
  223.  
  224.          hDC = BeginPaint ( hWnd, &ps);
  225.          Draw_Board ( hDC, flag.reverse, clrBlackSquare, clrWhiteSquare );
  226.          if ( coords ) DrawCoords ( hDC, flag.reverse, clrBackGround, clrText);
  227.          DrawAllPieces ( hDC, flag.reverse, boarddraw, colordraw, clrBlackPiece, clrWhitePiece );
  228.          EndPaint ( hWnd, &ps);
  229.  
  230.          if ( FirstSq != -1 ) HiliteSquare ( hWnd, FirstSq);
  231.          break;
  232.  
  233.  
  234. #ifdef WIN32
  235.       case WM_CTLCOLORSTATIC:/*Enable setting colors for the message controls*/
  236.       {
  237.          POINT point;
  238.  
  239.      UnrealizeObject ( hBrushBackGround );
  240.      SetBkColor ( (HDC)wParam, clrBackGround);
  241.      SetBkMode ( (HDC)wParam, TRANSPARENT);
  242.      SetTextColor ( (HDC)wParam, clrText);
  243.      point.x = point.y = 0;
  244.      ClientToScreen ( hWnd, &point);
  245.      SetBrushOrgEx ((HDC)wParam, point.x, point.y, NULL);
  246.      return (DWORD) hBrushBackGround;
  247.        }
  248. #else
  249.        case WM_CTLCOLOR:     /*Enable setting colors for the message controls*/
  250.        {
  251.      POINT point;
  252.      if ( HIWORD(lParam) == CTLCOLOR_STATIC) {
  253.        UnrealizeObject ( hBrushBackGround );
  254.        SetBkColor ( wParam, clrBackGround);
  255.        SetBkMode ( wParam, TRANSPARENT);
  256.        SetTextColor ( wParam, clrText);
  257.        point.x = point.y = 0;
  258.        ClientToScreen ( hWnd, &point);
  259.        SetBrushOrg (wParam, point.x, point.y);
  260.        return (DWORD) hBrushBackGround;
  261.      } else
  262.        return DefWindowProc ( hWnd, message, wParam, lParam);
  263.        }
  264. #endif
  265.  
  266.       case WM_ERASEBKGND:
  267.       {
  268.          RECT rect;
  269.          UnrealizeObject ( hBrushBackGround);
  270.          GetClientRect ( hWnd, &rect);
  271.          FillRect ( (HDC)wParam, &rect, hBrushBackGround);
  272.          return